perm filename FOO.SAI[DIA,HPM] blob
sn#509045 filedate 1980-05-11 generic text, type T, neo UTF8
BEGIN "DSK:SIM.2[DIA,HPM]"
REQUIRE "GRAHDR.SAI[GOD,HPM]" SOURCE_FILE;
INTEGER FJ;
FJ←FILJOB("DSK:FOO.GOD[DIA,HPM]");
BEGIN "DSK:PLAN.2[TMP,HPM]"
DDINIT ;
SCREEN ( -61.581, -.32808@-1, 54.331, 85.335 );
LITEN ;
LINE ( -39.370, .00000, -39.370, 85.335, 0 );
LINE ( -32.808, .00000, -32.808, 85.335, 0 );
LINE ( -26.247, .00000, -26.247, 85.335, 0 );
LINE ( -19.685, .00000, -19.685, 85.335, 0 );
LINE ( -13.123, .00000, -13.123, 85.335, 0 );
LINE ( -6.5617, .00000, -6.5617, 85.335, 0 );
LINE ( .00000, .00000, .00000, 85.335, 0 );
LINE ( 6.5617, .00000, 6.5617, 85.335, 0 );
LINE ( 13.123, .00000, 13.123, 85.335, 0 );
LINE ( 19.685, .00000, 19.685, 85.335, 0 );
LINE ( 26.247, .00000, 26.247, 85.335, 0 );
LINE ( 32.808, .00000, 32.808, 85.335, 0 );
LINE ( -26.247, .00000, 32.808, .00000, 0 );
LINE ( -26.247, 6.5617, 32.808, 6.5617, 0 );
LINE ( -26.247, 13.123, 32.808, 13.123, 0 );
LINE ( -26.247, 19.685, 32.808, 19.685, 0 );
LINE ( -26.247, 26.247, 32.808, 26.247, 0 );
LINE ( -26.247, 32.808, 32.808, 32.808, 0 );
LINE ( -26.247, 39.370, 32.808, 39.370, 0 );
LINE ( -26.247, 45.932, 32.808, 45.932, 0 );
LINE ( -26.247, 52.493, 32.808, 52.493, 0 );
LINE ( -26.247, 59.055, 32.808, 59.055, 0 );
LINE ( -26.247, 65.617, 32.808, 65.617, 0 );
LINE ( -26.247, 72.178, 32.808, 72.178, 0 );
LINE ( -26.247, 78.740, 32.808, 78.740, 0 );
LINE ( -26.247, 85.302, 32.808, 85.302, 0 );
FNTPOS ( -25.919, .32808, 1.0000, 1.0000, .00000, .00000 );
FNTEXT ( .00000, .00000, 3, "-8" );
FNTPOS ( -19.357, .32808, 1.0000, 1.0000, .00000, .00000 );
FNTEXT ( .00000, .00000, 3, "-6" );
FNTPOS ( -12.795, .32808, 1.0000, 1.0000, .00000, .00000 );
FNTEXT ( .00000, .00000, 3, "-4" );
FNTPOS ( -6.2336, .32808, 1.0000, 1.0000, .00000, .00000 );
FNTEXT ( .00000, .00000, 3, "-2" );
FNTPOS ( .32808, .32808, 1.0000, 1.0000, .00000, .00000 );
FNTEXT ( .00000, .00000, 3, "0" );
FNTPOS ( 6.8898, .32808, 1.0000, 1.0000, .00000, .00000 );
FNTEXT ( .00000, .00000, 3, "2 m" );
FNTPOS ( 13.451, .32808, 1.0000, 1.0000, .00000, .00000 );
FNTEXT ( .00000, .00000, 3, "4" );
FNTPOS ( 20.013, .32808, 1.0000, 1.0000, .00000, .00000 );
FNTEXT ( .00000, .00000, 3, "6" );
FNTPOS ( 26.575, .32808, 1.0000, 1.0000, .00000, .00000 );
FNTEXT ( .00000, .00000, 3, "8" );
LINE ( -39.370, .00000, 32.808, .00000, 0 );
LINE ( -39.370, 52.493, 32.808, 52.493, 0 );
LINE ( -39.370, 85.335, -39.370, 85.007, 0 );
LINE ( -38.714, 85.335, -38.714, 85.007, 0 );
LINE ( -38.058, 85.335, -38.058, 85.007, 0 );
LINE ( -37.402, 85.335, -37.402, 85.007, 0 );
LINE ( -36.745, 85.335, -36.745, 85.007, 0 );
LINE ( -36.089, 85.335, -36.089, 85.007, 0 );
LINE ( -35.433, 85.335, -35.433, 85.007, 0 );
LINE ( -34.777, 85.335, -34.777, 85.007, 0 );
LINE ( -34.121, 85.335, -34.121, 85.007, 0 );
LINE ( -33.465, 85.335, -33.465, 85.007, 0 );
LINE ( -32.808, 85.335, -32.808, 85.007, 0 );
LINE ( -32.152, 85.335, -32.152, 85.007, 0 );
LINE ( -31.496, 85.335, -31.496, 85.007, 0 );
LINE ( -30.840, 85.335, -30.840, 85.007, 0 );
LINE ( -30.184, 85.335, -30.184, 85.007, 0 );
LINE ( -29.528, 85.335, -29.528, 85.007, 0 );
LINE ( -28.871, 85.335, -28.871, 85.007, 0 );
LINE ( -28.215, 85.335, -28.215, 85.007, 0 );
LINE ( -27.559, 85.335, -27.559, 85.007, 0 );
LINE ( -26.903, 85.335, -26.903, 85.007, 0 );
LINE ( -26.247, 85.335, -26.247, 85.007, 0 );
FNTPOS ( -33.465, 50.853, 1.0000, 1.0000, .00000, .00000 );
FNTEXT ( .00000, .00000, 3, "cms" );
DRKEN ;
RECTAN ( -13.123, -19.685, 13.123, .00000 );
LITEN ;
LINE ( -13.123, -19.685, 13.123, -19.685, 0 );
LINE ( 13.123, .00000, 13.123, -19.685, 0 );
LINE ( 13.123, .00000, -13.123, .00000, 0 );
LINE ( -13.123, -19.685, -13.123, .00000, 0 );
LITEN ;
LINE ( 10.065, 39.688, 10.206, 39.689, 0 );
LINE ( 10.149, 38.336, 10.122, 41.042, 0 );
LINE ( 9.7222, 39.388, 9.6246, 39.689, 0 );
LINE ( 9.9775, 39.203, 9.7222, 39.388, 0 );
LINE ( 10.293, 39.203, 9.9775, 39.203, 0 );
LINE ( 10.549, 39.388, 10.293, 39.203, 0 );
LINE ( 10.646, 39.689, 10.549, 39.388, 0 );
LINE ( 10.549, 39.989, 10.646, 39.689, 0 );
LINE ( 10.293, 40.174, 10.549, 39.989, 0 );
LINE ( 9.9775, 40.174, 10.293, 40.174, 0 );
LINE ( 9.7222, 39.989, 9.9775, 40.174, 0 );
LINE ( 9.6246, 39.689, 9.7222, 39.989, 0 );
LINE ( 10.135, 39.689, 12.546, 42.099, 0 );
LITEN ;
LINE ( -1.3876, 15.401, -1.3339, 15.402, 0 );
LINE ( -1.3587, 15.195, -1.3628, 15.608, 0 );
LINE ( -1.4320, 15.350, -1.4488, 15.401, 0 );
LINE ( -1.3880, 15.318, -1.4320, 15.350, 0 );
LINE ( -1.3335, 15.318, -1.3880, 15.318, 0 );
LINE ( -1.2895, 15.350, -1.3335, 15.318, 0 );
LINE ( -1.2727, 15.401, -1.2895, 15.350, 0 );
LINE ( -1.2895, 15.453, -1.2727, 15.401, 0 );
LINE ( -1.3335, 15.485, -1.2895, 15.453, 0 );
LINE ( -1.3880, 15.485, -1.3335, 15.485, 0 );
LINE ( -1.4320, 15.453, -1.3880, 15.485, 0 );
LINE ( -1.4488, 15.401, -1.4320, 15.453, 0 );
LINE ( -1.3608, 15.401, -.58453, 16.178, 0 );
LITEN ;
LINE ( -1.5371, 14.969, -1.4860, 14.969, 0 );
LINE ( -1.5097, 14.782, -1.5134, 15.156, 0 );
LINE ( -1.5766, 14.922, -1.5919, 14.969, 0 );
LINE ( -1.5364, 14.893, -1.5766, 14.922, 0 );
LINE ( -1.4867, 14.893, -1.5364, 14.893, 0 );
LINE ( -1.4466, 14.922, -1.4867, 14.893, 0 );
LINE ( -1.4312, 14.969, -1.4466, 14.922, 0 );
LINE ( -1.4466, 15.016, -1.4312, 14.969, 0 );
LINE ( -1.4867, 15.045, -1.4466, 15.016, 0 );
LINE ( -1.5364, 15.045, -1.4867, 15.045, 0 );
LINE ( -1.5766, 15.016, -1.5364, 15.045, 0 );
LINE ( -1.5919, 14.969, -1.5766, 15.016, 0 );
LINE ( -1.5116, 14.969, .50174@-1, 16.531, 0 );
LATEN ;
LINE ( -1.0956, 14.985, -1.0419, 14.985, 0 );
LINE ( -1.0667, 14.778, -1.0708, 15.192, 0 );
LINE ( -1.1400, 14.933, -1.1568, 14.985, 0 );
LINE ( -1.0960, 14.901, -1.1400, 14.933, 0 );
LINE ( -1.0416, 14.901, -1.0960, 14.901, 0 );
LINE ( -.99753, 14.933, -1.0416, 14.901, 0 );
LINE ( -.98072, 14.985, -.99753, 14.933, 0 );
LINE ( -.99753, 15.037, -.98072, 14.985, 0 );
LINE ( -1.0416, 15.069, -.99753, 15.037, 0 );
LINE ( -1.0960, 15.069, -1.0416, 15.069, 0 );
LINE ( -1.1400, 15.037, -1.0960, 15.069, 0 );
LINE ( -1.1568, 14.985, -1.1400, 15.037, 0 );
LITEN ;
LINE ( 1.4468, 13.528, 1.4932, 13.529, 0 );
LINE ( 1.4716, 13.374, 1.4685, 13.683, 0 );
LINE ( 1.4151, 13.489, 1.4022, 13.529, 0 );
LINE ( 1.4491, 13.464, 1.4151, 13.489, 0 );
LINE ( 1.4910, 13.464, 1.4491, 13.464, 0 );
LINE ( 1.5249, 13.489, 1.4910, 13.464, 0 );
LINE ( 1.5379, 13.529, 1.5249, 13.489, 0 );
LINE ( 1.5249, 13.569, 1.5379, 13.529, 0 );
LINE ( 1.4910, 13.593, 1.5249, 13.569, 0 );
LINE ( 1.4491, 13.593, 1.4910, 13.593, 0 );
LINE ( 1.4151, 13.569, 1.4491, 13.593, 0 );
LINE ( 1.4022, 13.529, 1.4151, 13.569, 0 );
LINE ( 1.4700, 13.529, 2.4604, 14.519, 0 );
LITEN ;
LINE ( 2.3094, 11.896, 2.3511, 11.897, 0 );
LINE ( 2.3315, 11.771, 2.3290, 12.022, 0 );
LINE ( 2.2848, 11.864, 2.2741, 11.897, 0 );
LINE ( 2.3129, 11.843, 2.2848, 11.864, 0 );
LINE ( 2.3476, 11.843, 2.3129, 11.843, 0 );
LINE ( 2.3757, 11.864, 2.3476, 11.843, 0 );
LINE ( 2.3864, 11.897, 2.3757, 11.864, 0 );
LINE ( 2.3757, 11.930, 2.3864, 11.897, 0 );
LINE ( 2.3476, 11.950, 2.3757, 11.930, 0 );
LINE ( 2.3129, 11.950, 2.3476, 11.950, 0 );
LINE ( 2.2848, 11.930, 2.3129, 11.950, 0 );
LINE ( 2.2741, 11.897, 2.2848, 11.930, 0 );
LINE ( 2.3302, 11.897, 2.3650, 11.931, 0 );
LITEN ;
LINE ( -1.8801, 44.424, -1.7168, 44.426, 0 );
LINE ( -1.7803, 42.626, -1.8166, 46.223, 0 );
LINE ( -2.3418, 44.030, -2.4700, 44.425, 0 );
LINE ( -2.0060, 43.786, -2.3418, 44.030, 0 );
LINE ( -1.5909, 43.786, -2.0060, 43.786, 0 );
LINE ( -1.2551, 44.030, -1.5909, 43.786, 0 );
LINE ( -1.1269, 44.425, -1.2551, 44.030, 0 );
LINE ( -1.2551, 44.820, -1.1269, 44.425, 0 );
LINE ( -1.5909, 45.063, -1.2551, 44.820, 0 );
LINE ( -2.0060, 45.063, -1.5909, 45.063, 0 );
LINE ( -2.3418, 44.820, -2.0060, 45.063, 0 );
LINE ( -2.4700, 44.425, -2.3418, 44.820, 0 );
LITEN ;
LINE ( -2.3091, 14.759, -2.2481, 14.759, 0 );
LINE ( -2.2786, 14.494, -2.2786, 15.024, 0 );
LINE ( -2.3679, 14.694, -2.3890, 14.759, 0 );
LINE ( -2.3127, 14.654, -2.3679, 14.694, 0 );
LINE ( -2.2445, 14.654, -2.3127, 14.654, 0 );
LINE ( -2.1893, 14.694, -2.2445, 14.654, 0 );
LINE ( -2.1682, 14.759, -2.1893, 14.694, 0 );
LINE ( -2.1893, 14.824, -2.1682, 14.759, 0 );
LINE ( -2.2445, 14.864, -2.1893, 14.824, 0 );
LINE ( -2.3127, 14.864, -2.2445, 14.864, 0 );
LINE ( -2.3679, 14.824, -2.3127, 14.864, 0 );
LINE ( -2.3890, 14.759, -2.3679, 14.824, 0 );
LINE ( -2.2786, 14.759, -1.7552, 15.282, 0 );
LITEN ;
LINE ( 2.3619, 12.203, 2.4036, 12.204, 0 );
LINE ( 2.3840, 12.078, 2.3815, 12.329, 0 );
LINE ( 2.3373, 12.170, 2.3266, 12.203, 0 );
LINE ( 2.3654, 12.150, 2.3373, 12.170, 0 );
LINE ( 2.4001, 12.150, 2.3654, 12.150, 0 );
LINE ( 2.4282, 12.170, 2.4001, 12.150, 0 );
LINE ( 2.4389, 12.203, 2.4282, 12.170, 0 );
LINE ( 2.4282, 12.236, 2.4389, 12.203, 0 );
LINE ( 2.4001, 12.257, 2.4282, 12.236, 0 );
LINE ( 2.3654, 12.257, 2.4001, 12.257, 0 );
LINE ( 2.3373, 12.236, 2.3654, 12.257, 0 );
LINE ( 2.3266, 12.203, 2.3373, 12.236, 0 );
LINE ( 2.3828, 12.203, 3.2309, 13.052, 0 );
LITEN ;
LINE ( -6.0166, 22.920, -5.9333, 22.921, 0 );
LINE ( -5.9700, 22.431, -5.9799, 23.409, 0 );
LINE ( -6.1324, 22.806, -6.1696, 22.920, 0 );
LINE ( -6.0351, 22.735, -6.1324, 22.806, 0 );
LINE ( -5.9148, 22.735, -6.0351, 22.735, 0 );
LINE ( -5.8174, 22.806, -5.9148, 22.735, 0 );
LINE ( -5.7802, 22.920, -5.8174, 22.806, 0 );
LINE ( -5.8174, 23.035, -5.7802, 22.920, 0 );
LINE ( -5.9148, 23.105, -5.8174, 23.035, 0 );
LINE ( -6.0351, 23.105, -5.9148, 23.105, 0 );
LINE ( -6.1324, 23.035, -6.0351, 23.105, 0 );
LINE ( -6.1696, 22.920, -6.1324, 23.035, 0 );
LITEN ;
LINE ( -1.4759, .23798, -1.5051, 3.1349, 0 );
LINE ( -1.5051, 3.1349, 1.4948, 3.1651, 0 );
LINE ( 1.4948, 3.1651, 1.5240, .26819, 0 );
LINE ( 1.5240, .26819, -1.4759, .23798, 0 );
LINE ( .94407@-2, 1.7015, -104.46, 193.80, 0 );
LINE ( .94407@-2, 1.7015, 100.34, 195.86, 0 );
INVEN ;
LINE ( -1.0000, -.80494, 1.0000, -.80494, 0 );
LINE ( -.99051, 1.6915, 1.0094, 1.7116, 0 );
LINE ( .94407@-2, 1.7015, .00000, -.80494, 0 );
LINE ( -33.221, 1.7015, -32.808, -.80494, 0 );
LITEN ;
LINE ( .94407@-2, 1.7015, .63592@-2, 1.8288, 3 );
ELLIPS ( -.13641@-1, 1.8088, .26359@-1, 1.8488 );
LINE ( .63592@-2, 1.8288, -.42246@-3, 2.0225, 0 );
LINE ( -.42246@-3, 2.0225, -.11377@-1, 2.2161, 0 );
LINE ( -.11377@-1, 2.2161, -.26499@-1, 2.4094, 0 );
LINE ( -.26499@-1, 2.4094, -.45781@-1, 2.6023, 0 );
LINE ( -.45781@-1, 2.6023, -.69216@-1, 2.7948, 0 );
LINE ( -.69216@-1, 2.7948, -.96790@-1, 2.9867, 0 );
LINE ( -.96790@-1, 2.9867, -.12849, 3.1780, 0 );
LINE ( -.12849, 3.1780, -.16431, 3.3685, 0 );
LINE ( -.16431, 3.3685, -.20422, 3.5582, 0 );
LINE ( -.20422, 3.5582, -.24821, 3.7471, 0 );
LINE ( -.24821, 3.7471, -.29626, 3.9349, 0 );
LINE ( -.29626, 3.9349, -.34835, 4.1216, 0 );
LINE ( -.34835, 4.1216, -.40444, 4.3072, 0 );
LINE ( -.40444, 4.3072, -.46452, 4.4916, 0 );
LINE ( -.46452, 4.4916, -.52856, 4.6746, 0 );
LINE ( -.52856, 4.6746, -3.9378, 14.090, 2 );
ELLIPS ( -3.9578, 14.070, -3.9178, 14.110 );
LINE ( -3.9378, 14.090, -3.9869, 14.240, 0 );
LINE ( -3.9869, 14.240, -4.0268, 14.393, 0 );
LINE ( -4.0268, 14.393, -4.0573, 14.548, 0 );
LINE ( -4.0573, 14.548, -4.0783, 14.704, 0 );
LINE ( -4.0783, 14.704, -4.0897, 14.862, 0 );
LINE ( -4.0897, 14.862, -4.0914, 15.020, 0 );
LINE ( -4.0914, 15.020, -4.0835, 15.177, 0 );
LINE ( -4.0835, 15.177, .99674@-8, 65.617, 1 );
ELLIPS ( -.20000@-1, 65.597, .20000@-1, 65.637 );
DPYUP(-1);
END "DSK:PLAN.2[TMP,HPM]";
DDINIT;
LITEN;
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12923@-1,1.8214,0);
LINE(.12923@-1,1.8214,.12882@-1,1.8254,0);
LINE(.12882@-1,1.8254,.12802@-1,1.8331,0);
LINE(.12802@-1,1.8331,.12684@-1,1.8442,0);
LINE(.12684@-1,1.8442,.12528@-1,1.8584,0);
LINE(.12528@-1,1.8584,.12333@-1,1.8755,0);
LINE(.12333@-1,1.8755,.12095@-1,1.8953,0);
LINE(.12095@-1,1.8953,.11808@-1,1.9175,0);
LINE(.11808@-1,1.9175,.11465@-1,1.9419,0);
LINE(.11465@-1,1.9419,.11058@-1,1.9683,0);
LINE(.11058@-1,1.9683,.10577@-1,1.9967,0);
LINE(.10577@-1,1.9967,.10009@-1,2.0267,0);
LINE(.10009@-1,2.0267,.93558@-2,2.0579,0);
LINE(.93558@-2,2.0579,.86042@-2,2.0906,0);
LINE(.86042@-2,2.0906,.77474@-2,2.1246,0);
LINE(.77474@-2,2.1246,.67789@-2,2.1599,0);
LINE(.67789@-2,2.1599,.56927@-2,2.1964,0);
LINE(.56927@-2,2.1964,.44829@-2,2.2340,0);
LINE(.44829@-2,2.2340,.31439@-2,2.2727,0);
LINE(.31439@-2,2.2727,.16707@-2,2.3124,0);
LINE(.16707@-2,2.3124,.58316@-4,2.3529,0);
LINE(.58316@-4,2.3529,-.16979@-2,2.3943,0);
LINE(-.16979@-2,2.3943,-.36021@-2,2.4366,0);
LINE(-.36021@-2,2.4366,-.56584@-2,2.4796,0);
LINE(-.56584@-2,2.4796,-.78704@-2,2.5232,0);
LINE(-.78704@-2,2.5232,-.10242@-1,2.5676,0);
LINE(-.10242@-1,2.5676,-.12775@-1,2.6125,0);
LINE(-.12775@-1,2.6125,-.15474@-1,2.6581,0);
LINE(-.15474@-1,2.6581,-.18341@-1,2.7041,0);
LINE(-.18341@-1,2.7041,-.21378@-1,2.7507,0);
LINE(-.21378@-1,2.7507,-.24588@-1,2.7977,0);
LINE(-.24588@-1,2.7977,-.27973@-1,2.8452,0);
LINE(-.27973@-1,2.8452,-.31534@-1,2.8931,0);
LINE(-.31534@-1,2.8931,-.35274@-1,2.9414,0);
LINE(-.35274@-1,2.9414,-.39194@-1,2.9900,0);
LINE(-.39194@-1,2.9900,-.43295@-1,3.0390,0);
LINE(-.43295@-1,3.0390,-.47578@-1,3.0883,0);
LINE(-.47578@-1,3.0883,-.52045@-1,3.1378,0);
LINE(-.52045@-1,3.1378,-.56697@-1,3.1877,0);
LINE(-.56697@-1,3.1877,-.60937@-1,3.2317,0);
LINE(-.60937@-1,3.2317,-.65100@-1,3.2738,0);
LINE(-.65100@-1,3.2738,-.69178@-1,3.3140,0);
LINE(-.69178@-1,3.3140,-.73166@-1,3.3524,0);
LINE(-.73166@-1,3.3524,-.77097@-1,3.3894,0);
LINE(-.77097@-1,3.3894,-.80919@-1,3.4247,0);
LINE(-.80919@-1,3.4247,-.84626@-1,3.4586,0);
LINE(-.84626@-1,3.4586,-.88215@-1,3.4909,0);
LINE(-.88215@-1,3.4909,-.91685@-1,3.5219,0);
LINE(-.91685@-1,3.5219,-.95035@-1,3.5515,0);
LINE(-.95035@-1,3.5515,-.98265@-1,3.5799,0);
LINE(-.98265@-1,3.5799,-.10138,3.6071,0);
LINE(-.10138,3.6071,-.10437,3.6333,0);
LINE(-.10437,3.6333,-.10725,3.6583,0);
LINE(-.10725,3.6583,-.11002,3.6824,0);
LINE(-.11002,3.6824,-.11268,3.7055,0);
LINE(-.11268,3.7055,-.11523,3.7277,0);
LINE(-.11523,3.7277,-.11799,3.7517,0);
LINE(-.11799,3.7517,-.12062,3.7746,0);
LINE(-.12062,3.7746,-.12313,3.7965,0);
LINE(-.12313,3.7965,-.12554,3.8174,0);
LINE(-.12554,3.8174,-.12783,3.8373,0);
LINE(-.12783,3.8373,-.13002,3.8564,0);
LINE(-.13002,3.8564,-.13212,3.8746,0);
LINE(-.13212,3.8746,-.13412,3.8920,0);
LINE(-.13412,3.8920,-.13603,3.9087,0);
LINE(-.13603,3.9087,-.13786,3.9245,0);
LINE(-.13786,3.9245,-.13960,3.9397,0);
LINE(-.13960,3.9397,-.14127,3.9542,0);
LINE(-.14127,3.9542,-.14286,3.9680,0);
LINE(-.14286,3.9680,-.14439,3.9812,0);
LINE(-.14439,3.9812,-.14584,3.9939,0);
LINE(-.14584,3.9939,-.14723,4.0059,0);
LINE(-.14723,4.0059,-.14856,4.0175,0);
LINE(-.14856,4.0175,-.14983,4.0285,0);
LINE(-.14983,4.0285,-.15104,4.0390,0);
LINE(-.15104,4.0390,-.15220,4.0490,0);
LINE(-.15220,4.0490,-.15330,4.0586,0);
LINE(-.15330,4.0586,-.15436,4.0678,0);
LINE(-.15436,4.0678,-.15537,4.0765,0);
LINE(-.15537,4.0765,-.15633,4.0849,0);
LINE(-.15633,4.0849,-.15725,4.0929,0);
LINE(-.15725,4.0929,-.15814,4.1005,0);
LINE(-.15814,4.1005,-.15898,4.1078,0);
LINE(-.15898,4.1078,-.15978,4.1148,0);
LINE(-.15978,4.1148,-.16055,4.1214,0);
LINE(-.16055,4.1214,-.16128,4.1278,0);
LINE(-.16128,4.1278,-.16198,4.1339,0);
LINE(-.16198,4.1339,-.16265,4.1397,0);
LINE(-.16265,4.1397,-.16329,4.1452,0);
LINE(-.16329,4.1452,-.16390,4.1505,0);
LINE(-.16390,4.1505,-.16448,4.1555,0);
LINE(-.16448,4.1555,-.16504,4.1604,0);
LINE(-.16504,4.1604,-.16557,4.1650,0);
LINE(-.16557,4.1650,-.16608,4.1694,0);
LINE(-.16608,4.1694,-.16657,4.1736,0);
LINE(-.16657,4.1736,-.16703,4.1776,0);
LINE(-.16703,4.1776,-.16747,4.1815,0);
LINE(-.16747,4.1815,-.16790,4.1851,0);
LINE(-.16790,4.1851,-.16830,4.1886,0);
LINE(-.16830,4.1886,-.16869,4.1920,0);
LINE(-.16869,4.1920,-.16906,4.1952,0);
LINE(-.16906,4.1952,-.16941,4.1982,0);
LINE(-.16941,4.1982,-.16975,4.2011,0);
LINE(-.16975,4.2011,-.17007,4.2039,0);
LINE(-.17007,4.2039,-.17038,4.2066,0);
LINE(-.17038,4.2066,-.17067,4.2091,0);
LINE(-.17067,4.2091,-.17095,4.2116,0);
LINE(-.17095,4.2116,-.17122,4.2139,0);
LINE(-.17122,4.2139,-.17148,4.2161,0);
LINE(-.17148,4.2161,-.17172,4.2182,0);
LINE(-.17172,4.2182,-.17196,4.2203,0);
LINE(-.17196,4.2203,-.17218,4.2222,0);
LINE(-.17218,4.2222,-.17239,4.2240,0);
LINE(-.17239,4.2240,-.17260,4.2258,0);
LINE(-.17260,4.2258,-.17279,4.2275,0);
LINE(-.17279,4.2275,-.17298,4.2291,0);
LINE(-.17298,4.2291,-.17315,4.2306,0);
LINE(-.17315,4.2306,-.17332,4.2321,0);
LINE(-.17332,4.2321,-.17349,4.2335,0);
LINE(-.17349,4.2335,-.17364,4.2348,0);
LINE(-.17364,4.2348,-.17379,4.2361,0);
LINE(-.17379,4.2361,-.17393,4.2373,0);
LINE(-.17393,4.2373,-.17406,4.2385,0);
LINE(-.17406,4.2385,-.17419,4.2396,0);
LINE(-.17419,4.2396,-.17432,4.2407,0);
LINE(-.17432,4.2407,-.17443,4.2417,0);
LINE(-.17443,4.2417,-.17455,4.2427,0);
LINE(-.17455,4.2427,-.17465,4.2436,0);
LINE(-.17465,4.2436,-.17476,4.2445,0);
LINE(-.17476,4.2445,-.17485,4.2453,0);
LINE(-.17485,4.2453,-.17495,4.2461,0);
LINE(-.17495,4.2461,-.17504,4.2469,0);
LINE(-.17504,4.2469,-.17512,4.2477,0);
LINE(-.17512,4.2477,-.17520,4.2484,0);
LINE(-.17520,4.2484,-.17528,4.2490,0);
LINE(-.17528,4.2490,-.17536,4.2497,0);
LINE(-.17536,4.2497,-.17543,4.2503,0);
LINE(-.17543,4.2503,-.17550,4.2509,0);
LINE(-.17550,4.2509,-.17556,4.2514,0);
LINE(-.17556,4.2514,-.17562,4.2520,0);
LINE(-.17562,4.2520,-.17568,4.2525,0);
LINE(-.17568,4.2525,-.17574,4.2530,0);
LINE(-.17574,4.2530,-.17579,4.2535,0);
LINE(-.17579,4.2535,-.17584,4.2539,0);
LINE(-.17584,4.2539,-.17589,4.2543,0);
LINE(-.17589,4.2543,-.17594,4.2547,0);
LINE(-.17594,4.2547,-.17598,4.2551,0);
LINE(-.17598,4.2551,-.17603,4.2555,0);
LINE(-.17603,4.2555,-.17607,4.2559,0);
LINE(-.17607,4.2559,-.17611,4.2562,0);
LINE(-.17611,4.2562,-.17615,4.2565,0);
LINE(-.17615,4.2565,-.17618,4.2568,0);
LINE(-.17618,4.2568,-.17622,4.2571,0);
LINE(-.17622,4.2571,-.17625,4.2574,0);
LINE(-.17625,4.2574,-.17628,4.2577,0);
LINE(-.17628,4.2577,-.17631,4.2579,0);
LINE(-.17631,4.2579,-.17634,4.2582,0);
LINE(-.17634,4.2582,-.17636,4.2584,0);
LINE(-.17636,4.2584,-.17639,4.2586,0);
LINE(-.17639,4.2586,-.17642,4.2588,0);
LINE(-.17642,4.2588,-.17644,4.2591,0);
INVEN;
ELLIPS(-.37644,4.0591,.23561@-1,4.4591);
DPYUP(17544,-1);
KILJOB(FJ);
END ;